home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.0 Interfaces / QuickTimeComponents.lisp < prev   
Encoding:
Text File  |  1993-09-16  |  54.6 KB  |  1,153 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)
  3. ; 
  4. ; Created: Saturday, August 17, 1991 at 10:25 AM
  5. ;  QuickTimeComponents.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;  Copyright Apple Computer, Inc. 1991
  9. ;  All rights reserved
  10. ;     This file is used in these builds: Warhol
  11. ; 
  12. ; 
  13. ; 
  14.  
  15. ; $IFC UNDEFINED UsingIncludes
  16. ; $SETC UsingIncludes := 0
  17. ; $ENDC
  18.  
  19. ; $IFC NOT UsingIncludes
  20.  
  21. ; $ENDC
  22.  
  23. ; $IFC UNDEFINED UsingQuickTimeComponents
  24. ; $SETC UsingQuickTimeComponents := 1
  25.  
  26. ; $I+
  27. ; $SETC QuickTimeComponentsIncludes := UsingIncludes
  28. ; $SETC UsingIncludes := 1
  29. ; $IFC UNDEFINED UsingComponents
  30.  
  31. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  32. ; $ENDC
  33. ; $IFC UNDEFINED UsingImageCompression
  34.  
  35. (require-interface 'IMAGECOMPRESSION); $I $$Shell(PInterfaces)ImageCompression.p
  36. ; $ENDC
  37. ; $IFC UNDEFINED UsingMovies
  38.  
  39. (require-interface 'MOVIES)     ; $I $$Shell(PInterfaces)Movies.p
  40. ; $ENDC
  41. ; $IFC UNDEFINED UsingQuickDraw
  42.  
  43. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  44. ; $ENDC
  45. ; $IFC UNDEFINED UsingVideo
  46.  
  47. (require-interface 'VIDEO)      ; $I $$Shell(PInterfaces)Video.p
  48. ; $ENDC
  49. ; $SETC UsingIncludes := QuickTimeComponentsIncludes
  50.  
  51. ; ****
  52. ; 
  53. ;  Clock Component
  54. ; 
  55. ; ****
  56. (defconstant $clockComponentType :|clok|)
  57. (defconstant $systemTickClock :|tick|);  subtype: 60ths since boot 
  58. (defconstant $systemMicrosecondClock :|micr|);  subtype: 1000000ths since boot 
  59.  
  60. (defconstant $kClockRateIsLinear 1)
  61. (defconstant $kClockImplementsCallBacks 2)
  62.  
  63. (defconstant $kClockGetClockTimeSelect 1)
  64. (defconstant $kClockSetClockTimeSelect 2)
  65. (defconstant $kClockNewCallBackSelect 3)
  66. (defconstant $kClockDisposeCallBackSelect 4)
  67. (defconstant $kClockCallMeWhenSelect 5)
  68. (defconstant $kClockCancelCallBackSelect 6)
  69. (defconstant $kClockRateChangedSelect 7)
  70. (defconstant $kClockTimeChangedSelect 8)
  71. (defconstant $kClockSetTimeBaseSelect 9)
  72.  
  73.  
  74. (deftrap _GETCLOCKTIME ((ACLOCK (:POINTER :COMPONENTINSTANCERECORD)) (OUT (:POINTER :TIMERECORD)))
  75.    (:STACK :SIGNED-LONG)
  76.    (:STACK-TRAP #xA82A :D0 0 ACLOCK OUT ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  77.  
  78. (deftrap _CLOCKNEWCALLBACK ((ACLOCK (:POINTER :COMPONENTINSTANCERECORD)) (TB (:POINTER :TIMEBASERECORD)) (CALLBACKTYPE :SIGNED-INTEGER))
  79.    (:STACK (:POINTER :CALLBACKRECORD))
  80.    (:STACK-TRAP #xA82A :D0 0 ACLOCK TB CALLBACKTYPE ((+ (ASH 6 16) 1) :SIGNED-LONGINT)))
  81.  
  82. (deftrap _CLOCKDISPOSECALLBACK ((ACLOCK (:POINTER :COMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  83.    (:STACK :SIGNED-LONG)
  84.    (:STACK-TRAP #xA82A :D0 0 ACLOCK CB ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  85.  
  86. (deftrap _CLOCKCALLMEWHEN ((CLOCK (:POINTER :COMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)) (PARAM1 :SIGNED-LONG) (PARAM2 :SIGNED-LONG) (PARAM3 :SIGNED-LONG))
  87.    (:STACK :SIGNED-LONG)
  88.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB PARAM1 PARAM2 PARAM3 ((+ (ASH 16 16) 1) :SIGNED-LONGINT)))
  89.  
  90. (deftrap _CLOCKCANCELCALLBACK ((CLOCK (:POINTER :COMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  91.    (:STACK :SIGNED-LONG)
  92.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  93.  
  94. (deftrap _CLOCKRATECHANGED ((CLOCK (:POINTER :COMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  95.    (:STACK :SIGNED-LONG)
  96.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  97.  
  98. (deftrap _CLOCKTIMECHANGED ((CLOCK (:POINTER :COMPONENTINSTANCERECORD)) (CB (:POINTER :CALLBACKRECORD)))
  99.    (:STACK :SIGNED-LONG)
  100.    (:STACK-TRAP #xA82A :D0 0 CLOCK CB ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  101.  
  102. (deftrap _CLOCKSETTIMEBASE ((CLOCK (:POINTER :COMPONENTINSTANCERECORD)) (TB (:POINTER :TIMEBASERECORD)))
  103.    (:STACK :SIGNED-LONG)
  104.    (:STACK-TRAP #xA82A :D0 0 CLOCK TB ((+ (ASH 4 16) 1) :SIGNED-LONGINT)))
  105.  
  106. ; 
  107. ;  Video Digitizer Component
  108. ; 
  109. ; 
  110. ;   Standard type for video digitizers 
  111. (defconstant $videoDigitizerComponentType :|vdig|)
  112. (defconstant $vdigInterfaceRev 2)
  113.  
  114. ;  Input Format Standards 
  115. (defconstant $ntscIn 0)         ;  ntsc input format 
  116. (defconstant $palIn 1)          ;  pal input format 
  117. (defconstant $secamIn 2)        ;  secam input format 
  118.  
  119. ;  Input Formats 
  120. (defconstant $compositeIn 0)    ;  input is composite format 
  121. (defconstant $sVideoIn 1)       ;  input is sVideo format 
  122. (defconstant $rgbComponentIn 2) ;  input is rgb component format 
  123.  
  124. ;  Video Digitizer PlayThru States 
  125. (defconstant $vdPlayThruOff 0)
  126. (defconstant $vdPlayThruOn 1)
  127.  
  128. ;  Input Color Space Modes 
  129. (defconstant $vdDigitizerBW 0)  ;  black and white 
  130. (defconstant $vdDigitizerRGB 1) ;  rgb color 
  131.  
  132. ;  Phase Lock Loop Modes 
  133. (defconstant $vdBroadcastMode 0);  Broadcast / Laser Disk video mode 
  134. (defconstant $vdVTRMode 1)      ;  VCR / Magnetic media mode 
  135.  
  136. ;  Field Select Options 
  137. (defconstant $vdUseAnyField 0)
  138. (defconstant $vdUseOddField 1)
  139. (defconstant $vdUseEvenField 2)
  140.  
  141. ;  vdig types 
  142. (defconstant $vdTypeBasic 0)    ;  basic, no clipping 
  143. (defconstant $vdTypeAlpha 1)    ;  supports clipping with alpha channel 
  144. (defconstant $vdTypeMask 2)     ;  supports clipping with mask plane 
  145. (defconstant $vdTypeKey 3)      ;  supports clipping with key color(s) 
  146.  
  147. ;  Digitizer Error Codes 
  148. (defconstant $digiUnimpErr -2201);  feature unimplemented 
  149. (defconstant $qtParamErr -2202) ;  bad input parameter ( out of range, etc ) 
  150. (defconstant $matrixErr -2203)  ;  bad matrix, digitizer did nothing 
  151. (defconstant $notExactMatrix -2204);  warning of bad matrix, digitizer did its best 
  152. (defconstant $noMoreKeyColors -2205);  all key indexes in use 
  153. (defconstant $notExactSize -2206);  Can’t do exact size requested 
  154. (defconstant $badDepth -2207)   ;  Can’t digitize into this depth 
  155. (defconstant $noDMA -2208)      ;  Can’t do DMA digitizing ( i.e. can't go to requested dest 
  156. (defconstant $badCallOrder -2209);  Usually due to a status call being called prior to being setup first 
  157.  
  158. ;  Digitizer Input Capability/Current Flags 
  159. (defconstant $digiInDoesNTSC #X1);  digitizer supports NTSC input format 
  160. (defconstant $digiInDoesPAL #X2);  digitizer supports PAL input format 
  161. (defconstant $digiInDoesSECAM #X4);  digitizer supports SECAM input format 
  162. (defconstant $digiInDoesGenLock #X80);  digitizer does genlock 
  163.  
  164. (defconstant $digiInDoesComposite #X100);  digitizer supports composite input type 
  165. (defconstant $digiInDoesSVideo #X200);  digitizer supports S-Video input type 
  166. (defconstant $digiInDoesComponent #X400);  digitizer supports component (rgb) input type 
  167. (defconstant $digiInVTR_Broadcast #X800);  digitizer can differentiate between the two 
  168.  
  169. (defconstant $digiInDoesColor #X1000);  digitizer supports color 
  170. (defconstant $digiInDoesBW #X2000);  digitizer supports black & white 
  171.  
  172. ;  Digitizer Input Current Flags (these are valid only during active operating conditions) 
  173. (defconstant $digiInSignalLock #X80000000);  digitizer detects input signal is locked - this bit = horiz lock || vertical lock 
  174.  
  175. ;  Digitizer Output Capability/Current Flags 
  176. (defconstant $digiOutDoes1 #X1) ;  digitizer supports 1 bit pixels 
  177. (defconstant $digiOutDoes2 #X2) ;  digitizer supports 2 bit pixels 
  178. (defconstant $digiOutDoes4 #X4) ;  digitizer supports 4 bit pixels 
  179. (defconstant $digiOutDoes8 #X8) ;  digitizer supports 8 bit pixels 
  180. (defconstant $digiOutDoes16 #X10);  digitizer supports 16 bit pixels 
  181. (defconstant $digiOutDoes32 #X20);  digitizer supports 32 bit pixels 
  182. (defconstant $digiOutDoesDither #X40);  digitizer dithers in indexed modes 
  183. (defconstant $digiOutDoesStretch #X80);  digitizer can arbitrarily stretch 
  184. (defconstant $digiOutDoesShrink #X100);  digitizer can arbitrarily shrink 
  185. (defconstant $digiOutDoesMask #X200);  digitizer can mask to clipping regions 
  186.  
  187. (defconstant $digiOutDoesDouble #X800);  digitizer can stretch to exactly double size 
  188. (defconstant $digiOutDoesQuad #X1000);  digitizer can stretch exactly quadruple size 
  189. (defconstant $digiOutDoesQuarter #X2000);  digitizer can shrink to exactly quarter size 
  190. (defconstant $digiOutDoesSixteenth #X4000);  digitizer can shrink to exactly sixteenth size 
  191.  
  192. (defconstant $digiOutDoesRotate #X8000);  digitizer supports rotate transformations 
  193. (defconstant $digiOutDoesHorizFlip #X10000);  digitizer supports horizontal flips Sx < 0 
  194. (defconstant $digiOutDoesVertFlip #X20000);  digitizer supports vertical flips Sy < 0 
  195. (defconstant $digiOutDoesSkew #X40000);  digitizer supports skew (shear, twist) 
  196. (defconstant $digiOutDoesBlend #X80000)
  197. (defconstant $digiOutDoesWarp #X100000)
  198.  
  199. (defconstant $digiOutDoesHW_DMA #X200000);  digitizer not constrained to local device 
  200. (defconstant $digiOutDoesHWPlayThru #X400000);  digitizer doesn't need time to play thru 
  201. (defconstant $digiOutDoesILUT #X800000);  digitizer does inverse LUT for index modes 
  202. (defconstant $digiOutDoesKeyColor #X1000000);  digitizer does key color functions too 
  203. (defconstant $digiOutDoesAsyncGrabs #X2000000);  digitizer supports async grabs 
  204.  
  205. (def-mactype :VIDEODIGITIZERCOMPONENT (find-mactype :POINTER))
  206. (def-mactype :VIDEODIGITIZERERROR (find-mactype :SIGNED-LONG))
  207. (def-mactype :VDIGINTPROC (find-mactype :SIGNED-LONG))
  208.  
  209. ;  Types 
  210. (defrecord DigitizerInfo 
  211.    (vdigType :SIGNED-INTEGER)
  212.    (inputCapabilityFlags :SIGNED-LONG)
  213.    (outputCapabilityFlags :SIGNED-LONG)
  214.    (inputCurrentFlags :SIGNED-LONG)
  215.    (outputCurrentFlags :SIGNED-LONG)
  216.    (slot :SIGNED-INTEGER)       ;  temporary for connection purposes 
  217.    (gdh (:HANDLE :GDEVICE))     ;  temporary for digitizers that have preferred screen 
  218.    (maskgdh (:HANDLE :GDEVICE)) ;  temporary for digitizers that have mask planes 
  219.    (minDestHeight :SIGNED-INTEGER);  Smallest resizable height 
  220.    (minDestWidth :SIGNED-INTEGER);  Smallest resizable width 
  221.    (maxDestHeight :SIGNED-INTEGER);  Largest resizable height 
  222.    (maxDestWidth :SIGNED-INTEGER);  Largest resizable height 
  223.    (blendLevels :SIGNED-INTEGER);  Number of blend levels supported (2 if 1 bit mask) 
  224.    (Private :SIGNED-LONG)       ;  reserved 
  225.    )
  226.  
  227. (defrecord VdigType 
  228.    (digType :SIGNED-LONG)
  229.    (Private :SIGNED-LONG)
  230.    )
  231.  
  232. (def-mactype :VDIGTYPELISTPTR (find-mactype :POINTER))
  233. (def-mactype :VDIGTYPELISTHANDLE (find-mactype :HANDLE))
  234. (defrecord (VdigTypeList :handle) 
  235.    (count :SIGNED-INTEGER)
  236.    (list (:ARRAY :VDIGTYPE 1))
  237.    )
  238.  
  239. (defrecord VdigBufferRec 
  240.    (dest (:HANDLE :PIXMAP))
  241.    (location :POINT)
  242.    (reserved :SIGNED-LONG)
  243.    )
  244.  
  245. (def-mactype :VDIGBUFFERRECLISTPTR (find-mactype :POINTER))
  246. (def-mactype :VDIGBUFFERRECLISTHANDLE (find-mactype :HANDLE))
  247. (defrecord (VdigBufferRecList :handle) 
  248.    (count :SIGNED-INTEGER)
  249.    (matrix (:POINTER :MATRIXRECORD))
  250.    (mask (:HANDLE :REGION))
  251.    (list (:ARRAY :VDIGBUFFERREC 1))
  252.    )
  253.  
  254. ;  Video Digitizer Interface 
  255. (defconstant $kSelectVDGetMaxSrcRect 1)
  256. (defconstant $kSelectVDGetActiveSrcRect 2)
  257. (defconstant $kSelectVDSetDigitizerRect 3)
  258. (defconstant $kSelectVDGetDigitizerRect 4)
  259. (defconstant $kSelectVDGetVBlankRect 5)
  260. (defconstant $kSelectVDGetMaskPixMap 6)
  261. (defconstant $kSelectVDGetPlayThruDestination 8)
  262. (defconstant $kSelectVDUseThisCLUT 9)
  263. (defconstant $kSelectVDSetInputGammaValue 10)
  264. (defconstant $kSelectVDGetInputGammaValue 11)
  265. (defconstant $kSelectVDSetBrightness 12)
  266. (defconstant $kSelectVDGetBrightness 13)
  267. (defconstant $kSelectVDSetContrast 14)
  268. (defconstant $kSelectVDSetHue 15)
  269. (defconstant $kSelectVDSetSharpness 16)
  270. (defconstant $kSelectVDSetSaturation 17)
  271. (defconstant $kSelectVDGetContrast 18)
  272. (defconstant $kSelectVDGetHue 19)
  273. (defconstant $kSelectVDGetSharpness 20)
  274. (defconstant $kSelectVDGetSaturation 21)
  275. (defconstant $kSelectVDGrabOneFrame 22)
  276. (defconstant $kSelectVDGetMaxAuxBuffer 23)
  277. (defconstant $kSelectVDGetDigitizerInfo 25)
  278. (defconstant $kSelectVDGetCurrentFlags 26)
  279. (defconstant $kSelectVDSetKeyColor 27)
  280. (defconstant $kSelectVDGetKeyColor 28)
  281. (defconstant $kSelectVDAddKeyColor 29)
  282. (defconstant $kSelectVDGetNextKeyColor 30)
  283. (defconstant $kSelectVDSetKeyColorRange 31)
  284. (defconstant $kSelectVDGetKeyColorRange 32)
  285. (defconstant $kSelectVDSetDigitizerUserInterrupt 33)
  286. (defconstant $kSelectVDSetInputColorSpaceMode 34)
  287. (defconstant $kSelectVDGetInputColorSpaceMode 35)
  288. (defconstant $kSelectVDSetClipState 36)
  289. (defconstant $kSelectVDGetClipState 37)
  290. (defconstant $kSelectVDSetClipRgn 38)
  291. (defconstant $kSelectVDClearClipRgn 39)
  292. (defconstant $kSelectVDGetCLUTInUse 40)
  293. (defconstant $kSelectVDSetPLLFilterType 41)
  294. (defconstant $kSelectVDGetPLLFilterType 42)
  295. (defconstant $kSelectVDGetMaskandValue 43)
  296. (defconstant $kSelectVDSetMasterBlendLevel 44)
  297. (defconstant $kSelectVDSetPlayThruDestination 45)
  298. (defconstant $kSelectVDSetPlayThruOnOff 46)
  299. (defconstant $kSelectVDSetFieldPreference 47)
  300. (defconstant $kSelectVDGetFieldPreference 48)
  301. (defconstant $kSelectVDPreflightDestination 50)
  302. (defconstant $kSelectVDPreflightGlobalRect 51)
  303. (defconstant $kSelectVDSetPlayThruGlobalRect 52)
  304. (defconstant $kSelectVDSetInputGammaRecord 53)
  305. (defconstant $kSelectVDGetInputGammaRecord 54)
  306. (defconstant $kSelectVDSetBlackLevelValue 55)
  307. (defconstant $kSelectVDGetBlackLevelValue 56)
  308. (defconstant $kSelectVDSetWhiteLevelValue 57)
  309. (defconstant $kSelectVDGetWhiteLevelValue 58)
  310. (defconstant $kSelectVDGetVideoDefaults 59)
  311. (defconstant $kSelectVDGetNumberOfInputs 60)
  312. (defconstant $kSelectVDGetInputFormat 61)
  313. (defconstant $kSelectVDSetInput 62)
  314. (defconstant $kSelectVDGetInput 63)
  315. (defconstant $kSelectVDSetInputStandard 64)
  316. (defconstant $kSelectVDSetupBuffers 65)
  317. (defconstant $kSelectVDGrabOneFrameAsync 66)
  318. (defconstant $kSelectVDDone 67)
  319.  
  320. (defconstant $kvdigSelectors 67)
  321.  
  322.  
  323. (deftrap _VDGETMAXSRCRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (MAXSRCRECT (:POINTER :RECT)))
  324.    (:STACK :SIGNED-LONG)
  325.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD MAXSRCRECT ((+ (ASH 6 16) 1) :SIGNED-LONGINT)))
  326.  
  327. (deftrap _VDGETACTIVESRCRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (ACTIVESRCRECT (:POINTER :RECT)))
  328.    (:STACK :SIGNED-LONG)
  329.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD ACTIVESRCRECT ((+ (ASH 6 16) 2) :SIGNED-LONGINT)))
  330.  
  331. (deftrap _VDSETDIGITIZERRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)))
  332.    (:STACK :SIGNED-LONG)
  333.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT ((+ (ASH 4 16) 3) :SIGNED-LONGINT)))
  334.  
  335. (deftrap _VDGETDIGITIZERRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)))
  336.    (:STACK :SIGNED-LONG)
  337.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT ((+ (ASH 4 16) 4) :SIGNED-LONGINT)))
  338.  
  339. (deftrap _VDGETVBLANKRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTSTD :SIGNED-INTEGER) (VBLANKRECT (:POINTER :RECT)))
  340.    (:STACK :SIGNED-LONG)
  341.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTD VBLANKRECT ((+ (ASH 6 16) 5) :SIGNED-LONGINT)))
  342.  
  343. (deftrap _VDGETMASKPIXMAP ((CI (:POINTER :COMPONENTINSTANCERECORD)) (MASKPIXMAP (:HANDLE :PIXMAP)))
  344.    (:STACK :SIGNED-LONG)
  345.    (:STACK-TRAP #xA82A :D0 0 CI MASKPIXMAP ((+ (ASH 4 16) 6) :SIGNED-LONGINT)))
  346.  
  347. (deftrap _VDGETPLAYTHRUDESTINATION ((CI (:POINTER :COMPONENTINSTANCERECORD)) (DEST (:POINTER (:HANDLE :PIXMAP))) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)) (MASK (:POINTER (:HANDLE :REGION))))
  348.    (:STACK :SIGNED-LONG)
  349.    (:STACK-TRAP #xA82A :D0 0 CI DEST DESTRECT M MASK ((+ (ASH 16 16) 8) :SIGNED-LONGINT)))
  350.  
  351. (deftrap _VDUSETHISCLUT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (COLORTABLEHANDLE (:HANDLE :COLORTABLE)))
  352.    (:STACK :SIGNED-LONG)
  353.    (:STACK-TRAP #xA82A :D0 0 CI COLORTABLEHANDLE ((+ (ASH 4 16) 9) :SIGNED-LONGINT)))
  354.  
  355. (deftrap _VDSETINPUTGAMMAVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CHANNEL1 :SIGNED-LONG) (CHANNEL2 :SIGNED-LONG) (CHANNEL3 :SIGNED-LONG))
  356.    (:STACK :SIGNED-LONG)
  357.    (:STACK-TRAP #xA82A :D0 0 CI CHANNEL1 CHANNEL2 CHANNEL3 ((+ (ASH 12 16) 10) :SIGNED-LONGINT)))
  358.  
  359. (deftrap _VDGETINPUTGAMMAVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CHANNEL1 (:POINTER :SIGNED-LONG)) (CHANNEL2 (:POINTER :SIGNED-LONG)) (CHANNEL3 (:POINTER :SIGNED-LONG)))
  360.    (:STACK :SIGNED-LONG)
  361.    (:STACK-TRAP #xA82A :D0 0 CI CHANNEL1 CHANNEL2 CHANNEL3 ((+ (ASH 12 16) 11) :SIGNED-LONGINT)))
  362.  
  363. (deftrap _VDSETBRIGHTNESS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)))
  364.    (:STACK :SIGNED-LONG)
  365.    (:STACK-TRAP #xA82A :D0 0 CI BRIGHTNESS ((+ (ASH 4 16) 12) :SIGNED-LONGINT)))
  366.  
  367. (deftrap _VDGETBRIGHTNESS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)))
  368.    (:STACK :SIGNED-LONG)
  369.    (:STACK-TRAP #xA82A :D0 0 CI BRIGHTNESS ((+ (ASH 4 16) 13) :SIGNED-LONGINT)))
  370.  
  371. (deftrap _VDSETCONTRAST ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CONTRAST (:POINTER :SIGNED-INTEGER)))
  372.    (:STACK :SIGNED-LONG)
  373.    (:STACK-TRAP #xA82A :D0 0 CI CONTRAST ((+ (ASH 4 16) 14) :SIGNED-LONGINT)))
  374.  
  375. (deftrap _VDSETHUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (HUE (:POINTER :SIGNED-INTEGER)))
  376.    (:STACK :SIGNED-LONG)
  377.    (:STACK-TRAP #xA82A :D0 0 CI HUE ((+ (ASH 4 16) 15) :SIGNED-LONGINT)))
  378.  
  379. (deftrap _VDSETSHARPNESS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  380.    (:STACK :SIGNED-LONG)
  381.    (:STACK-TRAP #xA82A :D0 0 CI SHARPNESS ((+ (ASH 4 16) 16) :SIGNED-LONGINT)))
  382.  
  383. (deftrap _VDSETSATURATION ((CI (:POINTER :COMPONENTINSTANCERECORD)) (SATURATION (:POINTER :SIGNED-INTEGER)))
  384.    (:STACK :SIGNED-LONG)
  385.    (:STACK-TRAP #xA82A :D0 0 CI SATURATION ((+ (ASH 4 16) 17) :SIGNED-LONGINT)))
  386.  
  387. (deftrap _VDGETCONTRAST ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CONTRAST (:POINTER :SIGNED-INTEGER)))
  388.    (:STACK :SIGNED-LONG)
  389.    (:STACK-TRAP #xA82A :D0 0 CI CONTRAST ((+ (ASH 4 16) 18) :SIGNED-LONGINT)))
  390.  
  391. (deftrap _VDGETHUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (HUE (:POINTER :SIGNED-INTEGER)))
  392.    (:STACK :SIGNED-LONG)
  393.    (:STACK-TRAP #xA82A :D0 0 CI HUE ((+ (ASH 4 16) 19) :SIGNED-LONGINT)))
  394.  
  395. (deftrap _VDGETSHARPNESS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  396.    (:STACK :SIGNED-LONG)
  397.    (:STACK-TRAP #xA82A :D0 0 CI SHARPNESS ((+ (ASH 4 16) 20) :SIGNED-LONGINT)))
  398.  
  399. (deftrap _VDGETSATURATION ((CI (:POINTER :COMPONENTINSTANCERECORD)) (SATURATION (:POINTER :SIGNED-INTEGER)))
  400.    (:STACK :SIGNED-LONG)
  401.    (:STACK-TRAP #xA82A :D0 0 CI SATURATION ((+ (ASH 4 16) 21) :SIGNED-LONGINT)))
  402.  
  403. (deftrap _VDGRABONEFRAME ((CI (:POINTER :COMPONENTINSTANCERECORD)))
  404.    (:STACK :SIGNED-LONG)
  405.    (:STACK-TRAP #xA82A :D0 0 CI ((+ (ASH 0 16) 22) :SIGNED-LONGINT)))
  406.  
  407. (deftrap _VDGETMAXAUXBUFFER ((CI (:POINTER :COMPONENTINSTANCERECORD)) (PM (:POINTER (:HANDLE :PIXMAP))) (R (:POINTER :RECT)))
  408.    (:STACK :SIGNED-LONG)
  409.    (:STACK-TRAP #xA82A :D0 0 CI PM R ((+ (ASH 8 16) 23) :SIGNED-LONGINT)))
  410.  
  411. (deftrap _VDGETDIGITIZERINFO ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INFO (:POINTER :DIGITIZERINFO)))
  412.    (:STACK :SIGNED-LONG)
  413.    (:STACK-TRAP #xA82A :D0 0 CI INFO ((+ (ASH 4 16) 25) :SIGNED-LONGINT)))
  414.  
  415. (deftrap _VDGETCURRENTFLAGS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTCURRENTFLAG (:POINTER :SIGNED-LONG)) (OUTPUTCURRENTFLAG (:POINTER :SIGNED-LONG)))
  416.    (:STACK :SIGNED-LONG)
  417.    (:STACK-TRAP #xA82A :D0 0 CI INPUTCURRENTFLAG OUTPUTCURRENTFLAG ((+ (ASH 8 16) 26) :SIGNED-LONGINT)))
  418.  
  419. (deftrap _VDSETKEYCOLOR ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INDEX :SIGNED-LONG))
  420.    (:STACK :SIGNED-LONG)
  421.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 27) :SIGNED-LONGINT)))
  422.  
  423. (deftrap _VDGETKEYCOLOR ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INDEX (:POINTER :SIGNED-LONG)))
  424.    (:STACK :SIGNED-LONG)
  425.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 28) :SIGNED-LONGINT)))
  426.  
  427. (deftrap _VDADDKEYCOLOR ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INDEX (:POINTER :SIGNED-LONG)))
  428.    (:STACK :SIGNED-LONG)
  429.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 29) :SIGNED-LONGINT)))
  430.  
  431. (deftrap _VDGETNEXTKEYCOLOR ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INDEX :SIGNED-LONG))
  432.    (:STACK :SIGNED-LONG)
  433.    (:STACK-TRAP #xA82A :D0 0 CI INDEX ((+ (ASH 4 16) 30) :SIGNED-LONGINT)))
  434.  
  435. (deftrap _VDSETKEYCOLORRANGE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (MINRGB (:POINTER :RGBCOLOR)) (MAXRGB (:POINTER :RGBCOLOR)))
  436.    (:STACK :SIGNED-LONG)
  437.    (:STACK-TRAP #xA82A :D0 0 CI MINRGB MAXRGB ((+ (ASH 8 16) 31) :SIGNED-LONGINT)))
  438.  
  439. (deftrap _VDGETKEYCOLORRANGE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (MINRGB (:POINTER :RGBCOLOR)) (MAXRGB (:POINTER :RGBCOLOR)))
  440.    (:STACK :SIGNED-LONG)
  441.    (:STACK-TRAP #xA82A :D0 0 CI MINRGB MAXRGB ((+ (ASH 8 16) 32) :SIGNED-LONGINT)))
  442.  
  443. (deftrap _VDSETDIGITIZERUSERINTERRUPT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (FLAGS :SIGNED-LONG) (USERINTERRUPTPROC :SIGNED-LONG) (REFCON :SIGNED-LONG))
  444.    (:STACK :SIGNED-LONG)
  445.    (:STACK-TRAP #xA82A :D0 0 CI FLAGS USERINTERRUPTPROC REFCON ((+ (ASH 12 16) 33) :SIGNED-LONGINT)))
  446.  
  447. (deftrap _VDSETINPUTCOLORSPACEMODE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (COLORSPACEMODE :SIGNED-INTEGER))
  448.    (:STACK :SIGNED-LONG)
  449.    (:STACK-TRAP #xA82A :D0 0 CI COLORSPACEMODE ((+ (ASH 2 16) 34) :SIGNED-LONGINT)))
  450.  
  451. (deftrap _VDGETINPUTCOLORSPACEMODE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (COLORSPACEMODE (:POINTER :SIGNED-INTEGER)))
  452.    (:STACK :SIGNED-LONG)
  453.    (:STACK-TRAP #xA82A :D0 0 CI COLORSPACEMODE ((+ (ASH 4 16) 35) :SIGNED-LONGINT)))
  454.  
  455. (deftrap _VDSETCLIPSTATE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CLIPENABLE :SIGNED-INTEGER))
  456.    (:STACK :SIGNED-LONG)
  457.    (:STACK-TRAP #xA82A :D0 0 CI CLIPENABLE ((+ (ASH 2 16) 36) :SIGNED-LONGINT)))
  458.  
  459. (deftrap _VDGETCLIPSTATE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CLIPENABLE (:POINTER :SIGNED-INTEGER)))
  460.    (:STACK :SIGNED-LONG)
  461.    (:STACK-TRAP #xA82A :D0 0 CI CLIPENABLE ((+ (ASH 4 16) 37) :SIGNED-LONGINT)))
  462.  
  463. (deftrap _VDSETCLIPRGN ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CLIPREGION (:HANDLE :REGION)))
  464.    (:STACK :SIGNED-LONG)
  465.    (:STACK-TRAP #xA82A :D0 0 CI CLIPREGION ((+ (ASH 4 16) 38) :SIGNED-LONGINT)))
  466.  
  467. (deftrap _VDCLEARCLIPRGN ((CI (:POINTER :COMPONENTINSTANCERECORD)) (CLIPREGION (:HANDLE :REGION)))
  468.    (:STACK :SIGNED-LONG)
  469.    (:STACK-TRAP #xA82A :D0 0 CI CLIPREGION ((+ (ASH 4 16) 39) :SIGNED-LONGINT)))
  470.  
  471. (deftrap _VDGETCLUTINUSE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (COLORTABLEHANDLE (:POINTER (:HANDLE :COLORTABLE))))
  472.    (:STACK :SIGNED-LONG)
  473.    (:STACK-TRAP #xA82A :D0 0 CI COLORTABLEHANDLE ((+ (ASH 4 16) 40) :SIGNED-LONGINT)))
  474.  
  475. (deftrap _VDSETPLLFILTERTYPE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (PLLTYPE :SIGNED-INTEGER))
  476.    (:STACK :SIGNED-LONG)
  477.    (:STACK-TRAP #xA82A :D0 0 CI PLLTYPE ((+ (ASH 2 16) 41) :SIGNED-LONGINT)))
  478.  
  479. (deftrap _VDGETPLLFILTERTYPE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (PLLTYPE (:POINTER :SIGNED-INTEGER)))
  480.    (:STACK :SIGNED-LONG)
  481.    (:STACK-TRAP #xA82A :D0 0 CI PLLTYPE ((+ (ASH 4 16) 42) :SIGNED-LONGINT)))
  482.  
  483. (deftrap _VDGETMASKANDVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BLENDLEVEL :SIGNED-INTEGER) (MASK (:POINTER :SIGNED-LONG)) (VALUE (:POINTER :SIGNED-LONG)))
  484.    (:STACK :SIGNED-LONG)
  485.    (:STACK-TRAP #xA82A :D0 0 CI BLENDLEVEL MASK VALUE ((+ (ASH 10 16) 43) :SIGNED-LONGINT)))
  486.  
  487. (deftrap _VDSETMASTERBLENDLEVEL ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BLENDLEVEL (:POINTER :SIGNED-INTEGER)))
  488.    (:STACK :SIGNED-LONG)
  489.    (:STACK-TRAP #xA82A :D0 0 CI BLENDLEVEL ((+ (ASH 4 16) 44) :SIGNED-LONGINT)))
  490.  
  491. (deftrap _VDSETPLAYTHRUDESTINATION ((CI (:POINTER :COMPONENTINSTANCERECORD)) (DEST (:HANDLE :PIXMAP)) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)) (MASK (:HANDLE :REGION)))
  492.    (:STACK :SIGNED-LONG)
  493.    (:STACK-TRAP #xA82A :D0 0 CI DEST DESTRECT M MASK ((+ (ASH 16 16) 45) :SIGNED-LONGINT)))
  494.  
  495. (deftrap _VDSETPLAYTHRUONOFF ((CI (:POINTER :COMPONENTINSTANCERECORD)) (STATE :SIGNED-INTEGER))
  496.    (:STACK :SIGNED-LONG)
  497.    (:STACK-TRAP #xA82A :D0 0 CI STATE ((+ (ASH 2 16) 46) :SIGNED-LONGINT)))
  498.  
  499. (deftrap _VDSETFIELDPREFERENCE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (FIELDFLAG :SIGNED-INTEGER))
  500.    (:STACK :SIGNED-LONG)
  501.    (:STACK-TRAP #xA82A :D0 0 CI FIELDFLAG ((+ (ASH 2 16) 47) :SIGNED-LONGINT)))
  502.  
  503. (deftrap _VDGETFIELDPREFERENCE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (FIELDFLAG (:POINTER :SIGNED-INTEGER)))
  504.    (:STACK :SIGNED-LONG)
  505.    (:STACK-TRAP #xA82A :D0 0 CI FIELDFLAG ((+ (ASH 4 16) 48) :SIGNED-LONGINT)))
  506.  
  507. (deftrap _VDPREFLIGHTDESTINATION ((CI (:POINTER :COMPONENTINSTANCERECORD)) (DIGITIZERRECT (:POINTER :RECT)) (DEST (:HANDLE :PIXMAP)) (DESTRECT (:POINTER :RECT)) (M (:POINTER :MATRIXRECORD)))
  508.    (:STACK :SIGNED-LONG)
  509.    (:STACK-TRAP #xA82A :D0 0 CI DIGITIZERRECT DEST DESTRECT M ((+ (ASH 16 16) 50) :SIGNED-LONGINT)))
  510.  
  511. (deftrap _VDPREFLIGHTGLOBALRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (THEWINDOW (:POINTER :GRAFPORT)) (GLOBALRECT (:POINTER :RECT)))
  512.    (:STACK :SIGNED-LONG)
  513.    (:STACK-TRAP #xA82A :D0 0 CI THEWINDOW GLOBALRECT ((+ (ASH 8 16) 51) :SIGNED-LONGINT)))
  514.  
  515. (deftrap _VDSETPLAYTHRUGLOBALRECT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (THEWINDOW (:POINTER :GRAFPORT)) (GLOBALRECT (:POINTER :RECT)))
  516.    (:STACK :SIGNED-LONG)
  517.    (:STACK-TRAP #xA82A :D0 0 CI THEWINDOW GLOBALRECT ((+ (ASH 8 16) 52) :SIGNED-LONGINT)))
  518.  
  519. (deftrap _VDSETINPUTGAMMARECORD ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTGAMMAPTR (:POINTER :VDGAMMARECORD)))
  520.    (:STACK :SIGNED-LONG)
  521.    (:STACK-TRAP #xA82A :D0 0 CI INPUTGAMMAPTR ((+ (ASH 4 16) 53) :SIGNED-LONGINT)))
  522.  
  523. (deftrap _VDGETINPUTGAMMARECORD ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTGAMMAPTR (:POINTER (:POINTER :VDGAMMARECORD))))
  524.    (:STACK :SIGNED-LONG)
  525.    (:STACK-TRAP #xA82A :D0 0 CI INPUTGAMMAPTR ((+ (ASH 4 16) 54) :SIGNED-LONGINT)))
  526.  
  527. (deftrap _VDSETBLACKLEVELVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)))
  528.    (:STACK :SIGNED-LONG)
  529.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL ((+ (ASH 4 16) 55) :SIGNED-LONGINT)))
  530.  
  531. (deftrap _VDGETBLACKLEVELVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)))
  532.    (:STACK :SIGNED-LONG)
  533.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL ((+ (ASH 4 16) 56) :SIGNED-LONGINT)))
  534.  
  535. (deftrap _VDSETWHITELEVELVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)))
  536.    (:STACK :SIGNED-LONG)
  537.    (:STACK-TRAP #xA82A :D0 0 CI WHITELEVEL ((+ (ASH 4 16) 57) :SIGNED-LONGINT)))
  538.  
  539. (deftrap _VDGETWHITELEVELVALUE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)))
  540.    (:STACK :SIGNED-LONG)
  541.    (:STACK-TRAP #xA82A :D0 0 CI WHITELEVEL ((+ (ASH 4 16) 58) :SIGNED-LONGINT)))
  542.  
  543. (deftrap _VDGETVIDEODEFAULTS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BLACKLEVEL (:POINTER :SIGNED-INTEGER)) (WHITELEVEL (:POINTER :SIGNED-INTEGER)) (BRIGHTNESS (:POINTER :SIGNED-INTEGER)) (HUE (:POINTER :SIGNED-INTEGER)) (SATURATION (:POINTER :SIGNED-INTEGER)) (CONTRAST (:POINTER :SIGNED-INTEGER)) (SHARPNESS (:POINTER :SIGNED-INTEGER)))
  544.    (:STACK :SIGNED-LONG)
  545.    (:STACK-TRAP #xA82A :D0 0 CI BLACKLEVEL WHITELEVEL BRIGHTNESS HUE SATURATION CONTRAST SHARPNESS ((+ (ASH 28 16) 59) :SIGNED-LONGINT)))
  546.  
  547. (deftrap _VDGETNUMBEROFINPUTS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTS (:POINTER :SIGNED-INTEGER)))
  548.    (:STACK :SIGNED-LONG)
  549.    (:STACK-TRAP #xA82A :D0 0 CI INPUTS ((+ (ASH 4 16) 60) :SIGNED-LONGINT)))
  550.  
  551. (deftrap _VDGETINPUTFORMAT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUT :SIGNED-INTEGER) (FORMAT (:POINTER :SIGNED-INTEGER)))
  552.    (:STACK :SIGNED-LONG)
  553.    (:STACK-TRAP #xA82A :D0 0 CI INPUT FORMAT ((+ (ASH 6 16) 61) :SIGNED-LONGINT)))
  554.  
  555. (deftrap _VDSETINPUT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUT :SIGNED-INTEGER))
  556.    (:STACK :SIGNED-LONG)
  557.    (:STACK-TRAP #xA82A :D0 0 CI INPUT ((+ (ASH 2 16) 62) :SIGNED-LONGINT)))
  558.  
  559. (deftrap _VDGETINPUT ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUT (:POINTER :SIGNED-INTEGER)))
  560.    (:STACK :SIGNED-LONG)
  561.    (:STACK-TRAP #xA82A :D0 0 CI INPUT ((+ (ASH 4 16) 63) :SIGNED-LONGINT)))
  562.  
  563. (deftrap _VDSETINPUTSTANDARD ((CI (:POINTER :COMPONENTINSTANCERECORD)) (INPUTSTANDARD :SIGNED-INTEGER))
  564.    (:STACK :SIGNED-LONG)
  565.    (:STACK-TRAP #xA82A :D0 0 CI INPUTSTANDARD ((+ (ASH 2 16) 64) :SIGNED-LONGINT)))
  566.  
  567. (deftrap _VDSETUPBUFFERS ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERLIST (:HANDLE :VDIGBUFFERRECLIST)))
  568.    (:STACK :SIGNED-LONG)
  569.    (:STACK-TRAP #xA82A :D0 0 CI BUFFERLIST ((+ (ASH 4 16) 65) :SIGNED-LONGINT)))
  570.  
  571. (deftrap _VDGRABONEFRAMEASYNC ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BUFFER :SIGNED-INTEGER))
  572.    (:STACK :SIGNED-LONG)
  573.    (:STACK-TRAP #xA82A :D0 0 CI BUFFER ((+ (ASH 2 16) 66) :SIGNED-LONGINT)))
  574.  
  575. (deftrap _VDDONE ((CI (:POINTER :COMPONENTINSTANCERECORD)) (BUFFER :SIGNED-INTEGER))
  576.    (:STACK :SIGNED-LONG)
  577.    (:STACK-TRAP #xA82A :D0 0 CI BUFFER ((+ (ASH 2 16) 67) :SIGNED-LONGINT)))
  578.  
  579. ;  Sequence Grab Component 
  580. (def-mactype :SEQGRABCOMPONENT (find-mactype :POINTER))
  581. (def-mactype :SGCHANNEL (find-mactype :POINTER))
  582.  
  583. (defconstant $SeqGrabComponentType :|barg|)
  584. (defconstant $SeqGrabChannelType :|sgch|)
  585. (defconstant $grabPictOffScreen 1)
  586. (defconstant $sgFlagControlledGrab 1)
  587.  
  588. (defconstant $channelPlayNormal 0)
  589. (defconstant $channelPlayFast 1)
  590. (defconstant $channelPlayHighQuality 2)
  591. (defconstant $channelPlayAllData 4)
  592.  
  593. (defconstant $seqGrabToDisk 1)
  594. (defconstant $seqGrabToMemory 2)
  595. (defconstant $seqGrabUseTempMemory 4)
  596. (defconstant $seqGrabAppendToFile 8)
  597. (defconstant $seqGrabDontAddMovieResource 16)
  598. (defconstant $seqGrabRecord 1)
  599. (defconstant $seqGrabPreview 2)
  600. (defconstant $seqGrabPlayDuringRecord 4)
  601. (defconstant $seqGrabHasBounds 1)
  602. (defconstant $seqGrabHasVolume 2)
  603. (defconstant $seqGrabHasDiscreteSamples 4)
  604.  
  605. (defconstant $noDeviceForChannel -9400)
  606. (defconstant $grabTimeComplete -9401)
  607. (defconstant $cantDoThatInCurrentMode -9402)
  608. (defconstant $notEnoughMemoryToGrab -9403)
  609. (defconstant $notEnoughDiskSpaceToGrab -9404)
  610. (defconstant $couldntGetRequiredComponent -9405)
  611. (defconstant $badSGChannel -9406)
  612. (defconstant $seqGrabInfoNotAvailable -9407)
  613. (defconstant $deviceCantMeetRequest -9408)
  614.  
  615. (defrecord SeqGrabFrameInfo 
  616.    (frameOffset :SIGNED-LONG)
  617.    (frameTime :SIGNED-LONG)
  618.    (frameSize :SIGNED-LONG)
  619.    (frameChannel (:POINTER :COMPONENTINSTANCERECORD))
  620.    (frameRefCon :SIGNED-LONG)
  621.    )
  622.  
  623.  
  624. (deftrap _SGINITIALIZE ((S (:POINTER :COMPONENTINSTANCERECORD)))
  625.    (:STACK :SIGNED-LONG)
  626.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 1) :SIGNED-LONGINT)))
  627.  
  628.  
  629. (deftrap _SGSETDATAOUTPUT ((S (:POINTER :COMPONENTINSTANCERECORD)) (MOVIEFILE :FSSPEC) (WHEREFLAGS :SIGNED-LONG))
  630.    (:STACK :SIGNED-LONG)
  631.    (:STACK-TRAP #xA82A :D0 0 S MOVIEFILE WHEREFLAGS ((+ (ASH 8 16) 2) :SIGNED-LONGINT)))
  632.  
  633. (deftrap _SGGETDATAOUTPUT ((S (:POINTER :COMPONENTINSTANCERECORD)) (MOVIEFILE (:POINTER :FSSPEC)) (WHEREFLAGS (:POINTER :SIGNED-LONG)))
  634.    (:STACK :SIGNED-LONG)
  635.    (:STACK-TRAP #xA82A :D0 0 S MOVIEFILE WHEREFLAGS ((+ (ASH 8 16) 3) :SIGNED-LONGINT)))
  636.  
  637.  
  638. (deftrap _SGSETGWORLD ((S (:POINTER :COMPONENTINSTANCERECORD)) (GP (:POINTER :CGRAFPORT)) (GD (:HANDLE :GDEVICE)))
  639.    (:STACK :SIGNED-LONG)
  640.    (:STACK-TRAP #xA82A :D0 0 S GP GD ((+ (ASH 8 16) 4) :SIGNED-LONGINT)))
  641.  
  642. (deftrap _SGGETGWORLD ((S (:POINTER :COMPONENTINSTANCERECORD)) (GP (:POINTER (:POINTER :CGRAFPORT))) (GD (:POINTER (:HANDLE :GDEVICE))))
  643.    (:STACK :SIGNED-LONG)
  644.    (:STACK-TRAP #xA82A :D0 0 S GP GD ((+ (ASH 8 16) 5) :SIGNED-LONGINT)))
  645.  
  646.  
  647. (deftrap _SGNEWCHANNEL ((S (:POINTER :COMPONENTINSTANCERECORD)) (CHANNELTYPE :OSTYPE) (REF (:POINTER (:POINTER :COMPONENTINSTANCERECORD))))
  648.    (:STACK :SIGNED-LONG)
  649.    (:STACK-TRAP #xA82A :D0 0 S CHANNELTYPE REF ((+ (ASH 8 16) 6) :SIGNED-LONGINT)))
  650.  
  651. (deftrap _SGDISPOSECHANNEL ((S (:POINTER :COMPONENTINSTANCERECORD)) (C (:POINTER :COMPONENTINSTANCERECORD)))
  652.    (:STACK :SIGNED-LONG)
  653.    (:STACK-TRAP #xA82A :D0 0 S C ((+ (ASH 4 16) 7) :SIGNED-LONGINT)))
  654.  
  655.  
  656. (deftrap _SGSTARTPREVIEW ((S (:POINTER :COMPONENTINSTANCERECORD)))
  657.    (:STACK :SIGNED-LONG)
  658.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 16) :SIGNED-LONGINT)))
  659.  
  660. (deftrap _SGSTARTRECORD ((S (:POINTER :COMPONENTINSTANCERECORD)))
  661.    (:STACK :SIGNED-LONG)
  662.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 17) :SIGNED-LONGINT)))
  663.  
  664. (deftrap _SGIDLE ((S (:POINTER :COMPONENTINSTANCERECORD)))
  665.    (:STACK :SIGNED-LONG)
  666.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 18) :SIGNED-LONGINT)))
  667.  
  668. (deftrap _SGSTOP ((S (:POINTER :COMPONENTINSTANCERECORD)))
  669.    (:STACK :SIGNED-LONG)
  670.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 19) :SIGNED-LONGINT)))
  671.  
  672.  
  673. (deftrap _SGPAUSE ((S (:POINTER :COMPONENTINSTANCERECORD)) (PAUSE :BOOLEAN))
  674.    (:STACK :SIGNED-LONG)
  675.    (:STACK-TRAP #xA82A :D0 0 S PAUSE ((+ (ASH 2 16) 20) :SIGNED-LONGINT)))
  676.  
  677.  
  678. (deftrap _SGPREPARE ((S (:POINTER :COMPONENTINSTANCERECORD)) (PREPAREFORPREVIEW :BOOLEAN) (PREPAREFORRECORD :BOOLEAN))
  679.    (:STACK :SIGNED-LONG)
  680.    (:STACK-TRAP #xA82A :D0 0 S PREPAREFORPREVIEW PREPAREFORRECORD ((+ (ASH 4 16) 21) :SIGNED-LONGINT)))
  681.  
  682. (deftrap _SGRELEASE ((S (:POINTER :COMPONENTINSTANCERECORD)))
  683.    (:STACK :SIGNED-LONG)
  684.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 22) :SIGNED-LONGINT)))
  685.  
  686.  
  687. (deftrap _SGGETMOVIE ((S (:POINTER :COMPONENTINSTANCERECORD)))
  688.    (:STACK (:POINTER :MOVIERECORD))
  689.    (:STACK-TRAP #xA82A :D0 0 S ((+ (ASH 0 16) 23) :SIGNED-LONGINT)))
  690.  
  691.  
  692. (deftrap _SGSETMAXIMUMRECORDTIME ((S (:POINTER :COMPONENTINSTANCERECORD)) (TICKS :SIGNED-LONG))
  693.    (:STACK :SIGNED-LONG)
  694.    (:STACK-TRAP #xA82A :D0 0 S TICKS ((+ (ASH 4 16) 24) :SIGNED-LONGINT)))
  695.  
  696. (deftrap _SGGETMAXIMUMRECORDTIME ((S (:POINTER :COMPONENTINSTANCERECORD)) (TICKS (:POINTER :SIGNED-LONG)))
  697.    (:STACK :SIGNED-LONG)
  698.    (:STACK-TRAP #xA82A :D0 0 S TICKS ((+ (ASH 4 16) 25) :SIGNED-LONGINT)))
  699.  
  700.  
  701. (deftrap _SGGETSTORAGESPACEREMAINING ((S (:POINTER :COMPONENTINSTANCERECORD)) (BYTES (:POINTER :SIGNED-LONG)))
  702.    (:STACK :SIGNED-LONG)
  703.    (:STACK-TRAP #xA82A :D0 0 S BYTES ((+ (ASH 4 16) 26) :SIGNED-LONGINT)))
  704.  
  705. (deftrap _SGGETTIMEREMAINING ((S (:POINTER :COMPONENTINSTANCERECORD)) (TICKSLEFT (:POINTER :SIGNED-LONG)))
  706.    (:STACK :SIGNED-LONG)
  707.    (:STACK-TRAP #xA82A :D0 0 S TICKSLEFT ((+ (ASH 4 16) 27) :SIGNED-LONGINT)))
  708.  
  709.  
  710. (deftrap _SGGRABPICT ((S (:POINTER :COMPONENTINSTANCERECORD)) (P (:POINTER (:HANDLE :PICTURE))) (BOUNDS :RECT) (OFFSCREENDEPTH :SIGNED-INTEGER) (GRABPICTFLAGS :SIGNED-LONG))
  711.    (:STACK :SIGNED-LONG)
  712.    (:STACK-TRAP #xA82A :D0 0 S P BOUNDS OFFSCREENDEPTH GRABPICTFLAGS ((+ (ASH 14 16) 28) :SIGNED-LONGINT)))
  713.  
  714.  
  715. (deftrap _SGGETLASTMOVIERESID ((S (:POINTER :COMPONENTINSTANCERECORD)) (RESID (:POINTER :SIGNED-INTEGER)))
  716.    (:STACK :SIGNED-LONG)
  717.    (:STACK-TRAP #xA82A :D0 0 S RESID ((+ (ASH 4 16) 29) :SIGNED-LONGINT)))
  718.  
  719.  
  720. (deftrap _SGSETFLAGS ((S (:POINTER :COMPONENTINSTANCERECORD)) (SGFLAGS :SIGNED-LONG))
  721.    (:STACK :SIGNED-LONG)
  722.    (:STACK-TRAP #xA82A :D0 0 S SGFLAGS ((+ (ASH 4 16) 30) :SIGNED-LONGINT)))
  723.  
  724.  
  725. (deftrap _SGGETFLAGS ((S (:POINTER :COMPONENTINSTANCERECORD)) (SGFLAGS (:POINTER :SIGNED-LONG)))
  726.    (:STACK :SIGNED-LONG)
  727.    (:STACK-TRAP #xA82A :D0 0 S SGFLAGS ((+ (ASH 4 16) 31) :SIGNED-LONGINT)))
  728.  
  729. ;    General Channel Routines   
  730.  
  731. (deftrap _SGSETCHANNELUSAGE ((C (:POINTER :COMPONENTINSTANCERECORD)) (USAGE :SIGNED-LONG))
  732.    (:STACK :SIGNED-LONG)
  733.    (:STACK-TRAP #xA82A :D0 0 C USAGE ((+ (ASH 4 16) 128) :SIGNED-LONGINT)))
  734.  
  735. (deftrap _SGGETCHANNELUSAGE ((C (:POINTER :COMPONENTINSTANCERECORD)) (USAGE (:POINTER :SIGNED-LONG)))
  736.    (:STACK :SIGNED-LONG)
  737.    (:STACK-TRAP #xA82A :D0 0 C USAGE ((+ (ASH 4 16) 129) :SIGNED-LONGINT)))
  738.  
  739.  
  740. (deftrap _SGSETCHANNELBOUNDS ((C (:POINTER :COMPONENTINSTANCERECORD)) (BOUNDS :RECT))
  741.    (:STACK :SIGNED-LONG)
  742.    (:STACK-TRAP #xA82A :D0 0 C BOUNDS ((+ (ASH 4 16) 130) :SIGNED-LONGINT)))
  743.  
  744. (deftrap _SGGETCHANNELBOUNDS ((C (:POINTER :COMPONENTINSTANCERECORD)) (BOUNDS (:POINTER :RECT)))
  745.    (:STACK :SIGNED-LONG)
  746.    (:STACK-TRAP #xA82A :D0 0 C BOUNDS ((+ (ASH 4 16) 131) :SIGNED-LONGINT)))
  747.  
  748.  
  749. (deftrap _SGSETCHANNELVOLUME ((C (:POINTER :COMPONENTINSTANCERECORD)) (VOLUME :SIGNED-INTEGER))
  750.    (:STACK :SIGNED-LONG)
  751.    (:STACK-TRAP #xA82A :D0 0 C VOLUME ((+ (ASH 2 16) 132) :SIGNED-LONGINT)))
  752.  
  753. (deftrap _SGGETCHANNELVOLUME ((C (:POINTER :COMPONENTINSTANCERECORD)) (VOLUME (:POINTER :SIGNED-INTEGER)))
  754.    (:STACK :SIGNED-LONG)
  755.    (:STACK-TRAP #xA82A :D0 0 C VOLUME ((+ (ASH 4 16) 133) :SIGNED-LONGINT)))
  756.  
  757.  
  758. (deftrap _SGGETCHANNELINFO ((C (:POINTER :COMPONENTINSTANCERECORD)) (CHANNELINFO (:POINTER :SIGNED-LONG)))
  759.    (:STACK :SIGNED-LONG)
  760.    (:STACK-TRAP #xA82A :D0 0 C CHANNELINFO ((+ (ASH 4 16) 134) :SIGNED-LONGINT)))
  761.  
  762.  
  763. (deftrap _SGSETCHANNELPLAYFLAGS ((C (:POINTER :COMPONENTINSTANCERECORD)) (PLAYFLAGS :SIGNED-LONG))
  764.    (:STACK :SIGNED-LONG)
  765.    (:STACK-TRAP #xA82A :D0 0 C PLAYFLAGS ((+ (ASH 4 16) 135) :SIGNED-LONGINT)))
  766.  
  767. (deftrap _SGGETCHANNELPLAYFLAGS ((C (:POINTER :COMPONENTINSTANCERECORD)) (PLAYFLAGS (:POINTER :SIGNED-LONG)))
  768.    (:STACK :SIGNED-LONG)
  769.    (:STACK-TRAP #xA82A :D0 0 C PLAYFLAGS ((+ (ASH 4 16) 136) :SIGNED-LONGINT)))
  770.  
  771.  
  772. (deftrap _SGSETCHANNELMAXFRAMES ((C (:POINTER :COMPONENTINSTANCERECORD)) (FRAMECOUNT :SIGNED-LONG))
  773.    (:STACK :SIGNED-LONG)
  774.    (:STACK-TRAP #xA82A :D0 0 C FRAMECOUNT ((+ (ASH 4 16) 137) :SIGNED-LONGINT)))
  775.  
  776. (deftrap _SGGETCHANNELMAXFRAMES ((C (:POINTER :COMPONENTINSTANCERECORD)) (FRAMECOUNT (:POINTER :SIGNED-LONG)))
  777.    (:STACK :SIGNED-LONG)
  778.    (:STACK-TRAP #xA82A :D0 0 C FRAMECOUNT ((+ (ASH 4 16) 138) :SIGNED-LONGINT)))
  779.  
  780.  
  781. (deftrap _SGSETCHANNELREFCON ((C (:POINTER :COMPONENTINSTANCERECORD)) (REFCON :SIGNED-LONG))
  782.    (:STACK :SIGNED-LONG)
  783.    (:STACK-TRAP #xA82A :D0 0 C REFCON ((+ (ASH 4 16) 139) :SIGNED-LONGINT)))
  784.  
  785. ;  Video Routines 
  786.  
  787. (def-mactype :GRABPROC (find-mactype :SIGNED-LONG))
  788. (def-mactype :GRABCOMPLETEPROC (find-mactype :SIGNED-LONG))
  789. (def-mactype :DISPLAYPROC (find-mactype :SIGNED-LONG))
  790. (def-mactype :COMPRESSPROC (find-mactype :SIGNED-LONG))
  791. (def-mactype :COMPRESSCOMPLETEPROC (find-mactype :SIGNED-LONG))
  792. (def-mactype :ADDFRAMEPROC (find-mactype :SIGNED-LONG))
  793. (def-mactype :TRANSFERFRAMEPROC (find-mactype :SIGNED-LONG))
  794.  
  795. (defrecord VideoBottles 
  796.    (procCount :SIGNED-INTEGER)
  797.    (GrabProc :SIGNED-LONG)
  798.    (GrabCompleteProc :SIGNED-LONG)
  799.    (DisplayProc :SIGNED-LONG)
  800.    (CompressProc :SIGNED-LONG)
  801.    (AddFrameProc :SIGNED-LONG)
  802.    (TransferFrameProc :SIGNED-LONG)
  803.    )
  804.  
  805. (defrecord SGCompressInfo 
  806.    (buffer :POINTER)
  807.    (bufferSize :SIGNED-LONG)
  808.    (similarity :CHARACTER)
  809.    (reserved :CHARACTER)
  810.    )
  811.  
  812.  
  813. (deftrap _SGGETSRCVIDEOBOUNDS ((C (:POINTER :COMPONENTINSTANCERECORD)) (R (:POINTER :RECT)))
  814.    (:STACK :SIGNED-LONG)
  815.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 256) :SIGNED-LONGINT)))
  816.  
  817. (deftrap _SGSETVIDEORECT ((C (:POINTER :COMPONENTINSTANCERECORD)) (R :RECT))
  818.    (:STACK :SIGNED-LONG)
  819.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 257) :SIGNED-LONGINT)))
  820.  
  821. (deftrap _SGGETVIDEORECT ((C (:POINTER :COMPONENTINSTANCERECORD)) (R (:POINTER :RECT)))
  822.    (:STACK :SIGNED-LONG)
  823.    (:STACK-TRAP #xA82A :D0 0 C R ((+ (ASH 4 16) 258) :SIGNED-LONGINT)))
  824.  
  825.  
  826. (deftrap _SGGETVIDEOCOMPRESSORTYPE ((C (:POINTER :COMPONENTINSTANCERECORD)) (COMPRESSORTYPE (:POINTER :OSTYPE)))
  827.    (:STACK :SIGNED-LONG)
  828.    (:STACK-TRAP #xA82A :D0 0 C COMPRESSORTYPE ((+ (ASH 4 16) 259) :SIGNED-LONGINT)))
  829.  
  830. (deftrap _SGSETVIDEOCOMPRESSORTYPE ((C (:POINTER :COMPONENTINSTANCERECORD)) (COMPRESSORTYPE :OSTYPE))
  831.    (:STACK :SIGNED-LONG)
  832.    (:STACK-TRAP #xA82A :D0 0 C COMPRESSORTYPE ((+ (ASH 4 16) 260) :SIGNED-LONGINT)))
  833.  
  834.  
  835. (deftrap _SGSETVIDEOCOMPRESSOR ((C (:POINTER :COMPONENTINSTANCERECORD)) (DEPTH :SIGNED-INTEGER) (COMPRESSOR (:POINTER :COMPONENTRECORD)) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG))
  836.    (:STACK :SIGNED-LONG)
  837.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSOR SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE ((+ (ASH 18 16) 261) :SIGNED-LONGINT)))
  838.  
  839. (deftrap _SGGETVIDEOCOMPRESSOR ((C (:POINTER :COMPONENTINSTANCERECORD)) (DEPTH (:POINTER :SIGNED-INTEGER)) (COMPRESSOR (:POINTER (:POINTER :COMPONENTRECORD))) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (KEYFRAMERATE (:POINTER :SIGNED-LONG)))
  840.    (:STACK :SIGNED-LONG)
  841.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSOR SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE ((+ (ASH 20 16) 262) :SIGNED-LONGINT)))
  842.  
  843.  
  844. (deftrap _SGGETVIDEODIGITIZERCOMPONENT ((C (:POINTER :COMPONENTINSTANCERECORD)))
  845.    (:STACK (:POINTER :COMPONENTINSTANCERECORD))
  846.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 263) :SIGNED-LONGINT)))
  847.  
  848. (deftrap _SGSETVIDEODIGITIZERCOMPONENT ((C (:POINTER :COMPONENTINSTANCERECORD)) (VDIG (:POINTER :COMPONENTINSTANCERECORD)))
  849.    (:STACK :SIGNED-LONG)
  850.    (:STACK-TRAP #xA82A :D0 0 C VDIG ((+ (ASH 4 16) 264) :SIGNED-LONGINT)))
  851.  
  852. (deftrap _SGVIDEODIGITIZERCHANGED ((C (:POINTER :COMPONENTINSTANCERECORD)))
  853.    (:STACK :SIGNED-LONG)
  854.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 265) :SIGNED-LONGINT)))
  855.  
  856.  
  857. (deftrap _SGSETVIDEOBOTTLENECKS ((C (:POINTER :COMPONENTINSTANCERECORD)) (VB (:POINTER :VIDEOBOTTLES)))
  858.    (:STACK :SIGNED-LONG)
  859.    (:STACK-TRAP #xA82A :D0 0 C VB ((+ (ASH 4 16) 266) :SIGNED-LONGINT)))
  860.  
  861. (deftrap _SGGETVIDEOBOTTLENECKS ((C (:POINTER :COMPONENTINSTANCERECORD)) (VB (:POINTER :VIDEOBOTTLES)))
  862.    (:STACK :SIGNED-LONG)
  863.    (:STACK-TRAP #xA82A :D0 0 C VB ((+ (ASH 4 16) 267) :SIGNED-LONGINT)))
  864.  
  865.  
  866. (deftrap _SGGRABFRAME ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER))
  867.    (:STACK :SIGNED-LONG)
  868.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ((+ (ASH 2 16) 268) :SIGNED-LONGINT)))
  869.  
  870. (deftrap _SGGRABFRAMECOMPLETE ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (DONE (:POINTER :BOOLEAN)))
  871.    (:STACK :SIGNED-LONG)
  872.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM DONE ((+ (ASH 6 16) 269) :SIGNED-LONGINT)))
  873.  
  874.  
  875. (deftrap _SGDISPLAYFRAME ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (MP :MATRIXRECORD) (CLIPRGN (:HANDLE :REGION)))
  876.    (:STACK :SIGNED-LONG)
  877.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM MP CLIPRGN ((+ (ASH 10 16) 270) :SIGNED-LONGINT)))
  878.  
  879. (deftrap _SGCOMPRESSFRAME ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER))
  880.    (:STACK :SIGNED-LONG)
  881.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ((+ (ASH 2 16) 271) :SIGNED-LONGINT)))
  882.  
  883. (deftrap _SGCOMPRESSFRAMECOMPLETE ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (DONE (:POINTER :BOOLEAN)) (CI (:POINTER :SGCOMPRESSINFO)))
  884.    (:STACK :SIGNED-LONG)
  885.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM DONE CI ((+ (ASH 10 16) 272) :SIGNED-LONGINT)))
  886.  
  887. (deftrap _SGADDFRAME ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (ATTIME :SIGNED-LONG) (SCALE :SIGNED-LONG) (CI :SGCOMPRESSINFO))
  888.    (:STACK :SIGNED-LONG)
  889.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM ATTIME SCALE CI ((+ (ASH 14 16) 273) :SIGNED-LONGINT)))
  890.  
  891.  
  892. (deftrap _SGTRANSFERFRAMEFORCOMPRESS ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (MP :MATRIXRECORD) (CLIPRGN (:HANDLE :REGION)))
  893.    (:STACK :SIGNED-LONG)
  894.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM MP CLIPRGN ((+ (ASH 10 16) 274) :SIGNED-LONGINT)))
  895.  
  896.  
  897. (deftrap _SGSETCOMPRESSBUFFER ((C (:POINTER :COMPONENTINSTANCERECORD)) (DEPTH :SIGNED-INTEGER) (COMPRESSSIZE :RECT))
  898.    (:STACK :SIGNED-LONG)
  899.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSSIZE ((+ (ASH 6 16) 275) :SIGNED-LONGINT)))
  900.  
  901.  
  902. (deftrap _SGGETCOMPRESSBUFFER ((C (:POINTER :COMPONENTINSTANCERECORD)) (DEPTH (:POINTER :SIGNED-INTEGER)) (COMPRESSSIZE (:POINTER :RECT)))
  903.    (:STACK :SIGNED-LONG)
  904.    (:STACK-TRAP #xA82A :D0 0 C DEPTH COMPRESSSIZE ((+ (ASH 8 16) 276) :SIGNED-LONGINT)))
  905.  
  906.  
  907. (deftrap _SGGETBUFFERINFO ((C (:POINTER :COMPONENTINSTANCERECORD)) (BUFFERNUM :SIGNED-INTEGER) (BUFFERPM (:POINTER (:HANDLE :PIXMAP))) (BUFFERRECT (:POINTER :RECT)) (COMPRESSBUFFER (:POINTER (:POINTER :CGRAFPORT))) (COMPRESSBUFFERRECT (:POINTER :RECT)))
  908.    (:STACK :SIGNED-LONG)
  909.    (:STACK-TRAP #xA82A :D0 0 C BUFFERNUM BUFFERPM BUFFERRECT COMPRESSBUFFER COMPRESSBUFFERRECT ((+ (ASH 18 16) 277) :SIGNED-LONGINT)))
  910.  
  911. ;    Sound Routines   
  912.  
  913. (deftrap _SGSETSOUNDINPUTDRIVER ((C (:POINTER :COMPONENTINSTANCERECORD)) (DRIVERNAME (:STRING 255)))
  914.    (:STACK :SIGNED-LONG)
  915.    (:STACK-TRAP #xA82A :D0 0 C DRIVERNAME ((+ (ASH 4 16) 256) :SIGNED-LONGINT)))
  916.  
  917. (deftrap _SGGETSOUNDINPUTDRIVER ((C (:POINTER :COMPONENTINSTANCERECORD)))
  918.    (:STACK :SIGNED-LONG)
  919.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 257) :SIGNED-LONGINT)))
  920.  
  921. (deftrap _SGSOUNDINPUTDRIVERCHANGED ((C (:POINTER :COMPONENTINSTANCERECORD)))
  922.    (:STACK :SIGNED-LONG)
  923.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 258) :SIGNED-LONGINT)))
  924.  
  925.  
  926. (deftrap _SGSETSOUNDRECORDCHUNKSIZE ((C (:POINTER :COMPONENTINSTANCERECORD)) (SECONDS :SIGNED-LONG))
  927.    (:STACK :SIGNED-LONG)
  928.    (:STACK-TRAP #xA82A :D0 0 C SECONDS ((+ (ASH 4 16) 259) :SIGNED-LONGINT)))
  929.  
  930. (deftrap _SGGETSOUNDRECORDCHUNKSIZE ((C (:POINTER :COMPONENTINSTANCERECORD)))
  931.    (:STACK :SIGNED-LONG)
  932.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 260) :SIGNED-LONGINT)))
  933.  
  934.  
  935. (deftrap _SGSETSOUNDINPUTRATE ((C (:POINTER :COMPONENTINSTANCERECORD)) (RATE :SIGNED-LONG))
  936.    (:STACK :SIGNED-LONG)
  937.    (:STACK-TRAP #xA82A :D0 0 C RATE ((+ (ASH 4 16) 261) :SIGNED-LONGINT)))
  938.  
  939. (deftrap _SGGETSOUNDINPUTRATE ((C (:POINTER :COMPONENTINSTANCERECORD)))
  940.    (:STACK :SIGNED-LONG)
  941.    (:STACK-TRAP #xA82A :D0 0 C ((+ (ASH 0 16) 262) :SIGNED-LONGINT)))
  942.  
  943. ;    calls from seqGrab to Channel   
  944.  
  945. (deftrap _SGINITCHANNEL ((C (:POINTER :COMPONENTINSTANCERECORD)) (OWNER (:POINTER :COMPONENTINSTANCERECORD)))
  946.    (:STACK :SIGNED-LONG)
  947.    (:STACK-TRAP #xA82A :D0 0 C OWNER ((+ (ASH 4 16) 384) :SIGNED-LONGINT)))
  948.  
  949. (deftrap _SGWRITESAMPLES ((C (:POINTER :COMPONENTINSTANCERECORD)) (M (:POINTER :MOVIERECORD)) (THEFILE (:HANDLE :ALIASRECORD)))
  950.    (:STACK :SIGNED-LONG)
  951.    (:STACK-TRAP #xA82A :D0 0 C M THEFILE ((+ (ASH 8 16) 385) :SIGNED-LONGINT)))
  952.  
  953. (deftrap _SGGETDATARATE ((C (:POINTER :COMPONENTINSTANCERECORD)) (BYTESPERSECOND (:POINTER :SIGNED-LONG)))
  954.    (:STACK :SIGNED-LONG)
  955.    (:STACK-TRAP #xA82A :D0 0 C BYTESPERSECOND ((+ (ASH 4 16) 386) :SIGNED-LONGINT)))
  956.  
  957. ;    calls from Channel to seqGrab   
  958.  
  959. (deftrap _SGWRITEMOVIEDATA ((S (:POINTER :COMPONENTINSTANCERECORD)) (C (:POINTER :COMPONENTINSTANCERECORD)) (P :POINTER) (LEN :SIGNED-LONG) (OFFSET (:POINTER :SIGNED-LONG)))
  960.    (:STACK :SIGNED-LONG)
  961.    (:STACK-TRAP #xA82A :D0 0 S C P LEN OFFSET ((+ (ASH 16 16) 128) :SIGNED-LONGINT)))
  962.  
  963. (deftrap _SGADDFRAMEREFERENCE ((S (:POINTER :COMPONENTINSTANCERECORD)) (FRAMEINFO (:POINTER :SEQGRABFRAMEINFO)))
  964.    (:STACK :SIGNED-LONG)
  965.    (:STACK-TRAP #xA82A :D0 0 S FRAMEINFO ((+ (ASH 4 16) 129) :SIGNED-LONGINT)))
  966.  
  967. (deftrap _SGGETNEXTFRAMEREFERENCE ((S (:POINTER :COMPONENTINSTANCERECORD)) (FRAMEINFO (:POINTER :SEQGRABFRAMEINFO)) (FRAMEDURATION (:POINTER :SIGNED-LONG)) (FRAMENUMBER (:POINTER :SIGNED-LONG)))
  968.    (:STACK :SIGNED-LONG)
  969.    (:STACK-TRAP #xA82A :D0 0 S FRAMEINFO FRAMEDURATION FRAMENUMBER ((+ (ASH 12 16) 130) :SIGNED-LONGINT)))
  970.  
  971. (deftrap _SGGETTIMEBASE ((S (:POINTER :COMPONENTINSTANCERECORD)) (TB (:POINTER (:POINTER :TIMEBASERECORD))))
  972.    (:STACK :SIGNED-LONG)
  973.    (:STACK-TRAP #xA82A :D0 0 S TB ((+ (ASH 4 16) 131) :SIGNED-LONGINT)))
  974.  
  975. (defconstant $kSGInitializeSelect #X1)
  976. (defconstant $kSGSetDataOutputSelect #X2)
  977. (defconstant $kSGGetDataOutputSelect #X3)
  978. (defconstant $kSGSetGWorldSelect #X4)
  979. (defconstant $kSGGetGWorldSelect #X5)
  980. (defconstant $kSGNewChannelSelect #X6)
  981. (defconstant $kSGDisposeChannelSelect #X7)
  982. (defconstant $kSGStartPreviewSelect #X10)
  983. (defconstant $kSGStartRecordSelect #X11)
  984. (defconstant $kSGIdleSelect #X12)
  985. (defconstant $kSGStopSelect #X13)
  986. (defconstant $kSGPauseSelect #X14)
  987. (defconstant $kSGPrepareSelect #X15)
  988. (defconstant $kSGReleaseSelect #X16)
  989. (defconstant $kSGGetMovieSelect #X17)
  990. (defconstant $kSGSetMaximumRecordTimeSelect #X18)
  991. (defconstant $kSGGetMaximumRecordTimeSelect #X19)
  992. (defconstant $kSGGetStorageSpaceRemainingSelect #X1A)
  993. (defconstant $kSGGetTimeRemainingSelect #X1B)
  994. (defconstant $kSGGrabPictSelect #X1C)
  995. (defconstant $kSGGetLastMovieResIDSelect #X1D)
  996. (defconstant $kSGSetFlagsSelect #X1E)
  997. (defconstant $kSGGetFlagsSelect #X1F)
  998.  
  999. (defconstant $kSGCSetChannelUsageSelect #X80)
  1000. (defconstant $kSGCGetChannelUsageSelect #X81)
  1001. (defconstant $kSGCSetChannelBoundsSelect #X82)
  1002. (defconstant $kSGCGetChannelBoundsSelect #X83)
  1003. (defconstant $kSGCSetChannelVolumeSelect #X84)
  1004. (defconstant $kSGCGetChannelVolumeSelect #X85)
  1005. (defconstant $kSGCGetChannelInfoSelect #X86)
  1006. (defconstant $kSGCSetChannelPlayFlagsSelect #X87)
  1007. (defconstant $kSGCGetChannelPlayFlagsSelect #X88)
  1008. (defconstant $kSGCSetChannelMaxFramesSelect #X89)
  1009. (defconstant $kSGCGetChannelMaxFramesSelect #X8A)
  1010. (defconstant $kSGCSetChannelRefConSelect #X8B)
  1011.  
  1012. (defconstant $kSGCGetSrcVideoBoundsSelect #X100)
  1013. (defconstant $kSGCSetVideoRectSelect #X101)
  1014. (defconstant $kSGCGetVideoRectSelect #X102)
  1015. (defconstant $kSGCGetVideoCompressorTypeSelect #X103)
  1016. (defconstant $kSGCSetVideoCompressorTypeSelect #X104)
  1017. (defconstant $kSGCSetVideoCompressorSelect #X105)
  1018. (defconstant $kSGCGetVideoCompressorSelect #X106)
  1019. (defconstant $kSGCGetVideoDigitizerComponentSelect #X107)
  1020. (defconstant $kSGCSetVideoDigitizerComponentSelect #X108)
  1021. (defconstant $kSGCVideoDigitizerChangedSelect #X109)
  1022. (defconstant $kSGCSetVideoBottlenecksSelect #X10A)
  1023. (defconstant $kSGCGetVideoBottlenecksSelect #X10B)
  1024. (defconstant $kSGCGrabFrameSelect #X10C)
  1025. (defconstant $kSGCGrabFrameCompleteSelect #X10D)
  1026. (defconstant $kSGCDisplayFrameSelect #X10E)
  1027. (defconstant $kSGCCompressFrameSelect #X10F)
  1028. (defconstant $kSGCCompressFrameCompleteSelect #X110)
  1029. (defconstant $kSGCAddFrameSelect #X111)
  1030. (defconstant $kSGCTransferFrameForCompressSelect #X112)
  1031. (defconstant $kSGCSetCompressBufferSelect #X113)
  1032. (defconstant $kSGCGetCompressBufferSelect #X114)
  1033. (defconstant $kSGCGetBufferInfoSelect #X115)
  1034.  
  1035. (defconstant $kSGCSetSoundInputDriverSelect #X100)
  1036. (defconstant $kSGCGetSoundInputDriverSelect #X101)
  1037. (defconstant $kSGCSoundInputDriverChangedSelect #X102)
  1038. (defconstant $kSGCSetSoundRecordChunkSizeSelect #X103)
  1039. (defconstant $kSGCGetSoundRecordChunkSizeSelect #X104)
  1040. (defconstant $kSGCSetSoundInputRateSelect #X105)
  1041. (defconstant $kSGCGetSoundInputRateSelect #X106)
  1042.  
  1043. (defconstant $kSGCInitChannelSelect #X180)
  1044. (defconstant $kSGCWriteSamplesSelect #X181)
  1045. (defconstant $kSGCGetDataRateSelect #X182)
  1046.  
  1047. (defconstant $kSGWriteMovieDataSelect #X80)
  1048. (defconstant $kSGAddFrameReferenceSelect #X81)
  1049. (defconstant $kSGGetNextFrameReferenceSelect #X82)
  1050. (defconstant $kSGGetTimeBaseSelect #X83)
  1051.  
  1052. ; $ENDC                         ;  UsingQuickTimeComponents 
  1053.  
  1054. ; $IFC NOT UsingIncludes
  1055.  
  1056. ; $ENDC
  1057.  
  1058.  
  1059. (export '($KSGGETTIMEBASESELECT $KSGGETNEXTFRAMEREFERENCESELECT
  1060.           $KSGADDFRAMEREFERENCESELECT $KSGWRITEMOVIEDATASELECT
  1061.           $KSGCGETDATARATESELECT $KSGCWRITESAMPLESSELECT $KSGCINITCHANNELSELECT
  1062.           $KSGCGETSOUNDINPUTRATESELECT $KSGCSETSOUNDINPUTRATESELECT
  1063.           $KSGCGETSOUNDRECORDCHUNKSIZESELECT $KSGCSETSOUNDRECORDCHUNKSIZESELECT
  1064.           $KSGCSOUNDINPUTDRIVERCHANGEDSELECT $KSGCGETSOUNDINPUTDRIVERSELECT
  1065.           $KSGCSETSOUNDINPUTDRIVERSELECT $KSGCGETBUFFERINFOSELECT
  1066.           $KSGCGETCOMPRESSBUFFERSELECT $KSGCSETCOMPRESSBUFFERSELECT
  1067.           $KSGCTRANSFERFRAMEFORCOMPRESSSELECT $KSGCADDFRAMESELECT
  1068.           $KSGCCOMPRESSFRAMECOMPLETESELECT $KSGCCOMPRESSFRAMESELECT
  1069.           $KSGCDISPLAYFRAMESELECT $KSGCGRABFRAMECOMPLETESELECT
  1070.           $KSGCGRABFRAMESELECT $KSGCGETVIDEOBOTTLENECKSSELECT
  1071.           $KSGCSETVIDEOBOTTLENECKSSELECT $KSGCVIDEODIGITIZERCHANGEDSELECT
  1072.           $KSGCSETVIDEODIGITIZERCOMPONENTSELECT
  1073.           $KSGCGETVIDEODIGITIZERCOMPONENTSELECT $KSGCGETVIDEOCOMPRESSORSELECT
  1074.           $KSGCSETVIDEOCOMPRESSORSELECT $KSGCSETVIDEOCOMPRESSORTYPESELECT
  1075.           $KSGCGETVIDEOCOMPRESSORTYPESELECT $KSGCGETVIDEORECTSELECT
  1076.           $KSGCSETVIDEORECTSELECT $KSGCGETSRCVIDEOBOUNDSSELECT
  1077.           $KSGCSETCHANNELREFCONSELECT $KSGCGETCHANNELMAXFRAMESSELECT
  1078.           $KSGCSETCHANNELMAXFRAMESSELECT $KSGCGETCHANNELPLAYFLAGSSELECT
  1079.           $KSGCSETCHANNELPLAYFLAGSSELECT $KSGCGETCHANNELINFOSELECT
  1080.           $KSGCGETCHANNELVOLUMESELECT $KSGCSETCHANNELVOLUMESELECT
  1081.           $KSGCGETCHANNELBOUNDSSELECT $KSGCSETCHANNELBOUNDSSELECT
  1082.           $KSGCGETCHANNELUSAGESELECT $KSGCSETCHANNELUSAGESELECT
  1083.           $KSGGETFLAGSSELECT $KSGSETFLAGSSELECT $KSGGETLASTMOVIERESIDSELECT
  1084.           $KSGGRABPICTSELECT $KSGGETTIMEREMAININGSELECT
  1085.           $KSGGETSTORAGESPACEREMAININGSELECT $KSGGETMAXIMUMRECORDTIMESELECT
  1086.           $KSGSETMAXIMUMRECORDTIMESELECT $KSGGETMOVIESELECT $KSGRELEASESELECT
  1087.           $KSGPREPARESELECT $KSGPAUSESELECT $KSGSTOPSELECT $KSGIDLESELECT
  1088.           $KSGSTARTRECORDSELECT $KSGSTARTPREVIEWSELECT $KSGDISPOSECHANNELSELECT
  1089.           $KSGNEWCHANNELSELECT $KSGGETGWORLDSELECT $KSGSETGWORLDSELECT
  1090.           $KSGGETDATAOUTPUTSELECT $KSGSETDATAOUTPUTSELECT $KSGINITIALIZESELECT
  1091.           $DEVICECANTMEETREQUEST $SEQGRABINFONOTAVAILABLE $BADSGCHANNEL
  1092.           $COULDNTGETREQUIREDCOMPONENT $NOTENOUGHDISKSPACETOGRAB
  1093.           $NOTENOUGHMEMORYTOGRAB $CANTDOTHATINCURRENTMODE $GRABTIMECOMPLETE
  1094.           $NODEVICEFORCHANNEL $SEQGRABHASDISCRETESAMPLES $SEQGRABHASVOLUME
  1095.           $SEQGRABHASBOUNDS $SEQGRABPLAYDURINGRECORD $SEQGRABPREVIEW
  1096.           $SEQGRABRECORD $SEQGRABDONTADDMOVIERESOURCE $SEQGRABAPPENDTOFILE
  1097.           $SEQGRABUSETEMPMEMORY $SEQGRABTOMEMORY $SEQGRABTODISK
  1098.           $CHANNELPLAYALLDATA $CHANNELPLAYHIGHQUALITY $CHANNELPLAYFAST
  1099.           $CHANNELPLAYNORMAL $SGFLAGCONTROLLEDGRAB $GRABPICTOFFSCREEN
  1100.           $SEQGRABCHANNELTYPE $SEQGRABCOMPONENTTYPE $KVDIGSELECTORS
  1101.           $KSELECTVDDONE $KSELECTVDGRABONEFRAMEASYNC $KSELECTVDSETUPBUFFERS
  1102.           $KSELECTVDSETINPUTSTANDARD $KSELECTVDGETINPUT $KSELECTVDSETINPUT
  1103.           $KSELECTVDGETINPUTFORMAT $KSELECTVDGETNUMBEROFINPUTS
  1104.           $KSELECTVDGETVIDEODEFAULTS $KSELECTVDGETWHITELEVELVALUE
  1105.           $KSELECTVDSETWHITELEVELVALUE $KSELECTVDGETBLACKLEVELVALUE
  1106.           $KSELECTVDSETBLACKLEVELVALUE $KSELECTVDGETINPUTGAMMARECORD
  1107.           $KSELECTVDSETINPUTGAMMARECORD $KSELECTVDSETPLAYTHRUGLOBALRECT
  1108.           $KSELECTVDPREFLIGHTGLOBALRECT $KSELECTVDPREFLIGHTDESTINATION
  1109.           $KSELECTVDGETFIELDPREFERENCE $KSELECTVDSETFIELDPREFERENCE
  1110.           $KSELECTVDSETPLAYTHRUONOFF $KSELECTVDSETPLAYTHRUDESTINATION
  1111.           $KSELECTVDSETMASTERBLENDLEVEL $KSELECTVDGETMASKANDVALUE
  1112.           $KSELECTVDGETPLLFILTERTYPE $KSELECTVDSETPLLFILTERTYPE
  1113.           $KSELECTVDGETCLUTINUSE $KSELECTVDCLEARCLIPRGN $KSELECTVDSETCLIPRGN
  1114.           $KSELECTVDGETCLIPSTATE $KSELECTVDSETCLIPSTATE
  1115.           $KSELECTVDGETINPUTCOLORSPACEMODE $KSELECTVDSETINPUTCOLORSPACEMODE
  1116.           $KSELECTVDSETDIGITIZERUSERINTERRUPT $KSELECTVDGETKEYCOLORRANGE
  1117.           $KSELECTVDSETKEYCOLORRANGE $KSELECTVDGETNEXTKEYCOLOR
  1118.           $KSELECTVDADDKEYCOLOR $KSELECTVDGETKEYCOLOR $KSELECTVDSETKEYCOLOR
  1119.           $KSELECTVDGETCURRENTFLAGS $KSELECTVDGETDIGITIZERINFO
  1120.           $KSELECTVDGETMAXAUXBUFFER $KSELECTVDGRABONEFRAME
  1121.           $KSELECTVDGETSATURATION $KSELECTVDGETSHARPNESS $KSELECTVDGETHUE
  1122.           $KSELECTVDGETCONTRAST $KSELECTVDSETSATURATION $KSELECTVDSETSHARPNESS
  1123.           $KSELECTVDSETHUE $KSELECTVDSETCONTRAST $KSELECTVDGETBRIGHTNESS
  1124.           $KSELECTVDSETBRIGHTNESS $KSELECTVDGETINPUTGAMMAVALUE
  1125.           $KSELECTVDSETINPUTGAMMAVALUE $KSELECTVDUSETHISCLUT
  1126.           $KSELECTVDGETPLAYTHRUDESTINATION $KSELECTVDGETMASKPIXMAP
  1127.           $KSELECTVDGETVBLANKRECT $KSELECTVDGETDIGITIZERRECT
  1128.           $KSELECTVDSETDIGITIZERRECT $KSELECTVDGETACTIVESRCRECT
  1129.           $KSELECTVDGETMAXSRCRECT $DIGIOUTDOESASYNCGRABS $DIGIOUTDOESKEYCOLOR
  1130.           $DIGIOUTDOESILUT $DIGIOUTDOESHWPLAYTHRU $DIGIOUTDOESHW_DMA
  1131.           $DIGIOUTDOESWARP $DIGIOUTDOESBLEND $DIGIOUTDOESSKEW
  1132.           $DIGIOUTDOESVERTFLIP $DIGIOUTDOESHORIZFLIP $DIGIOUTDOESROTATE
  1133.           $DIGIOUTDOESSIXTEENTH $DIGIOUTDOESQUARTER $DIGIOUTDOESQUAD
  1134.           $DIGIOUTDOESDOUBLE $DIGIOUTDOESMASK $DIGIOUTDOESSHRINK
  1135.           $DIGIOUTDOESSTRETCH $DIGIOUTDOESDITHER $DIGIOUTDOES32 $DIGIOUTDOES16
  1136.           $DIGIOUTDOES8 $DIGIOUTDOES4 $DIGIOUTDOES2 $DIGIOUTDOES1
  1137.           $DIGIINSIGNALLOCK $DIGIINDOESBW $DIGIINDOESCOLOR $DIGIINVTR_BROADCAST
  1138.           $DIGIINDOESCOMPONENT $DIGIINDOESSVIDEO $DIGIINDOESCOMPOSITE
  1139.           $DIGIINDOESGENLOCK $DIGIINDOESSECAM $DIGIINDOESPAL $DIGIINDOESNTSC
  1140.           $BADCALLORDER $NODMA $BADDEPTH $NOTEXACTSIZE $NOMOREKEYCOLORS
  1141.           $NOTEXACTMATRIX $MATRIXERR $QTPARAMERR $DIGIUNIMPERR $VDTYPEKEY
  1142.           $VDTYPEMASK $VDTYPEALPHA $VDTYPEBASIC $VDUSEEVENFIELD $VDUSEODDFIELD
  1143.           $VDUSEANYFIELD $VDVTRMODE $VDBROADCASTMODE $VDDIGITIZERRGB
  1144.           $VDDIGITIZERBW $VDPLAYTHRUON $VDPLAYTHRUOFF $RGBCOMPONENTIN $SVIDEOIN
  1145.           $COMPOSITEIN $SECAMIN $PALIN $NTSCIN $VDIGINTERFACEREV
  1146.           $VIDEODIGITIZERCOMPONENTTYPE $KCLOCKSETTIMEBASESELECT
  1147.           $KCLOCKTIMECHANGEDSELECT $KCLOCKRATECHANGEDSELECT
  1148.           $KCLOCKCANCELCALLBACKSELECT $KCLOCKCALLMEWHENSELECT
  1149.           $KCLOCKDISPOSECALLBACKSELECT $KCLOCKNEWCALLBACKSELECT
  1150.           $KCLOCKSETCLOCKTIMESELECT $KCLOCKGETCLOCKTIMESELECT
  1151.           $KCLOCKIMPLEMENTSCALLBACKS $KCLOCKRATEISLINEAR
  1152.           $SYSTEMMICROSECONDCLOCK $SYSTEMTICKCLOCK $CLOCKCOMPONENTTYPE))
  1153. (provide-interface 'QuickTimeComponents)